﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE

Public Class frmSeg_UsuarioEdicion

    Private Sub cmdacp_Click(sender As System.Object, e As System.EventArgs) Handles cmdacp.Click

        If UcMantUsuario21.DxValidationProvider1.Validate Then
            Dim oUsuario As New Usuario
            Dim oUsuarioBL As New UsuarioBL
            oUsuario.coduser = UcMantUsuario21.gcoduser.EditValue
            oUsuario.nomuser = UcMantUsuario21.gnomuser.EditValue
            oUsuario.fchterm = IIf(UcMantUsuario21.gfchterm.EditValue Is DBNull.Value, Nothing, UcMantUsuario21.gfchterm.EditValue)
            oUsuario.codnive = UcMantUsuario21.cbcodnive.EditValue
            oUsuario.flgLock = IIf(UcMantUsuario21.chkflgLock.EditValue Is DBNull.Value, Nothing, UcMantUsuario21.chkflgLock.EditValue)
            oUsuario.flglgn = IIf(UcMantUsuario21.chkflgLgn.EditValue Is DBNull.Value, Nothing, UcMantUsuario21.chkflgLgn.EditValue)
            oUsuario.maiuser = UcMantUsuario21.gmaiuser.EditValue

            If oUsuarioBL.pr_EditarUsuario(oUsuario) Then
                DialogResult = Windows.Forms.DialogResult.OK
                Close()
            End If
        End If

    End Sub

    Private Sub cmdcancel_Click(sender As System.Object, e As System.EventArgs) Handles cmdcancel.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
        Close()
    End Sub
End Class